﻿
Imports BusinessLogicLayer
Imports BE = BusinessEntities

Partial Class Encuestas_EditarEncuesta
    Inherits System.Web.UI.Page

    Dim errores As String
    Dim mensaje As String
    Public Shared parametroenviado As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            parametroenviado = Request.QueryString("id")


            'Hacemos una referencia a la clase
            Dim capanegocios As New EncuestaBL
            Dim objeto As New BE.EncuestaBE

            objeto.codigo = parametroenviado
            Try
                'Invocamos al método BuscarEncuesta definido previamente en la clase
                txttematica.Text = capanegocios.BuscarEncuesta(objeto).Tables("LaEncuesta").Rows(0).Item(1)
                cal.SelectedDate = capanegocios.BuscarEncuesta(objeto).Tables("LaEncuesta").Rows(0).Item(3)
                ddlestado.Items.FindByValue(capanegocios.BuscarEncuesta(objeto).Tables("LaEncuesta").Rows(0).Item(4)).Selected = True

            Catch ex As Exception

                errores = capanegocios.ChapaError
                Response.Redirect("Errores.aspx?id=" & errores)


            Finally
                'Liberamos recursos
                capanegocios = Nothing
                objeto = Nothing
            End Try


        End If



    End Sub

    Protected Sub btngrabar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btngrabar.Click

        'Instanciamos la clase EncuestaBL
        Dim capanegocios As New EncuestaBL
        'Instancias la entidad EncuestaBE
        Dim objeto As New BE.EncuestaBE

        'Llenas las propiedades   revisar  el envio del parametro
        objeto.codigo = parametroenviado
        objeto.tematica = txttematica.Text
        objeto.fechamaxvigencia = cal.SelectedDate
        objeto.estado = ddlestado.SelectedItem.Value
        Dim resultado As String

        resultado = capanegocios.ActualizarEncuesta(objeto)

        Try

            If resultado = "LOS DATOS DE LA ENCUESTA SE ACTUALIZARON CON ÉXITO" Then

                mensaje = "Se actualizó la Encuesta"
                Dim script As String = "<script language=Javascript>"
                script += "alert('" & mensaje & "');"
                script += "</script>"
                Page.ClientScript.RegisterStartupScript(Me.GetType(), "script", script)

                txttematica.Enabled = False
                cal.Enabled = False
                ddlestado.Enabled = False
                btngrabar.Enabled = False

                lblresultado.Text = "Los datos se actualizaron con éxito"

            Else

                mensaje = "No se actualizó la Encuesta"
                Dim script As String = "<script language=Javascript>"
                script += "alert('" & mensaje & "');"
                script += "</script>"
                Page.ClientScript.RegisterStartupScript(Me.GetType(), "script", script)

                lblresultado.Text = resultado

            End If

        Catch ex As Exception
            errores = capanegocios.ChapaError
            Response.Redirect("Errores.aspx?id=" & errores)
        Finally
            capanegocios = Nothing
            objeto = Nothing
        End Try

    End Sub
End Class

